home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0292.ZIP / GENEPROG.ARC / DESOUT.PRG < prev    next >
Text File  |  1985-12-21  |  640b  |  20 lines
  1. *SUBROUTINE DESOUT     6/7/1985                      DESOUT 
  2. *
  3.  USE GENE INDEX SNINDX
  4.  @ 5,10 SAY "DESCENDANT NAME CODES ARE: "
  5.  @ 7,10 SAY "  WELCH, QUICK, ASHER, STEAC "
  6.  @ 9,10 SAY "  WAKEL, MURRA, SHERE, COGGI "
  7.  @ 12,10 SAY "       "
  8.  ACCEPT "          ENTER DESCENDANT CODE: " TO DSNAME
  9.  @ 20,10 SAY "SORTING IN PROGRESS. PLEASE WAIT."
  10.  COPY TO OUTSUM FOR DESCENDANT=DSNAME
  11.  USE OUTSUM
  12.  SET DEVICE TO PRINT
  13.    DO OUTFORM
  14.    ENDDO
  15.    SET DEVICE TO SCREEN
  16.    CLEAR
  17.  USE GENE INDEX SNINDX
  18.  RETURN
  19. *END OF SUBROUTINE
  20.